home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm5 / awbmltym.lha / AWEBmailtoYAM / scripts / Part1.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-23  |  803b  |  33 lines
  1. /* AWEBmailtoYAM V2 ©1996 ALeX Kazik*/
  2. OPTIONS RESULTS
  3. PARSE ARG mailto pubscreen
  4.  
  5. mailto = SUBSTR(mailto, 2, length(mailto)-2)
  6. pubscreen = SUBSTR(pubscreen, 3, length(pubscreen)-3)
  7.  
  8. IF ~SHOW('P','YAM') THEN DO  
  9.     CALL OPEN(1,'T:StartYAM',w)
  10.     CALL WRITELN(1,"stack 8196")
  11.     CALL WRITELN(1,"run <> NIL: YAM:YAM")
  12.     CALL CLOSE(1)
  13.     ADDRESS COMMAND 'execute <>NIL: T:StartYAM'
  14.     ADDRESS COMMAND 'delete <>NIL: T:StartYAM'
  15.     i = 15
  16.     DO UNTIL (SHOW('P','YAM')) | (i=0)
  17.         ADDRESS COMMAND 'Wait 2'
  18.         i = i - 1
  19.     END
  20.     IF ~SHOW('P','YAM') THEN DO  
  21.         ADDRESS COMMAND 'RequestChoice <>NIL: "Error" "Could''nt find/start YAM!" "OK" PUBSCREEN' pubscreen
  22.         EXIT
  23.     END
  24. END
  25.  
  26. ADDRESS 'YAM'
  27. MAILWRITE
  28. WriteMailTo mailto
  29. CALL OPEN(4,'T:WriteMail.tmp',w)
  30. CALL WRITELN(4,"Subject: ")
  31. CALL CLOSE(4)
  32. CALL OPEN(4,'T:EditMail.tmp',w)
  33.